home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 10 / BBS In A Box Volume X (AMUG) (January 1994).bin / Files / Prog / A / add images.cpt / initclut.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-06-22  |  2.4 KB  |  123 lines  |  [TEXT/KAHL]
  1.  
  2. /*
  3.     initclut.c
  4.  
  5.     5/1/89
  6.     c. keith ray
  7.  
  8.     procedure to initialize color lookup table
  9.     based on code from IMAGE
  10. */
  11.  
  12. #include "initclut.h"
  13. #include "about_alert.h"
  14. #include <IM1_5Protos.h>
  15.  
  16. #define      NIL    0
  17.  
  18. extern WindowPtr Result_Window;    /* Window pointer */
  19. extern WindowPtr proton_Window;    /* Window pointer */
  20. extern WindowPtr flourine_Window;
  21.  
  22. PaletteHandle mypalette;
  23. RGBColor BlackRGB, whiteRGB, grayRGB;
  24.  
  25. void Init_gray_clut()
  26. { 
  27.     short jk, col;
  28.     /* 
  29.         create a single Palette that will be shared with all my windows and hopefully,
  30.         the offscreen pixmap as well.
  31.     */
  32.     unsigned short i, j;
  33.  
  34.     mypalette = NewPalette(all_my_colors, 0L, pmTolerant, 0); 
  35.     /* requires exact matches to specified colors */
  36.     
  37.     col = maxintensity;
  38.     for ( jk = 0; jk < all_my_colors; jk++ )
  39.     {
  40.         grayRGB.red = col;
  41.         grayRGB.blue = col;
  42.         grayRGB.green = col;
  43.         SetEntryColor(mypalette, jk, &grayRGB);
  44.         col -= (maxintensity / all_my_colors);
  45.     }
  46.     BlackRGB.red = 0;
  47.     BlackRGB.blue = 0;
  48.     BlackRGB.green = 0;
  49.  
  50.     whiteRGB.red = maxintensity;
  51.     whiteRGB.blue = maxintensity;
  52.     whiteRGB.green = maxintensity;
  53.  
  54.     grayRGB.red = maxintensity / 2;
  55.     grayRGB.blue = maxintensity / 2;
  56.     grayRGB.green = maxintensity / 2;
  57. }
  58.  
  59.  
  60. void init_clut_flourine() /* source 1 */
  61. {    
  62.     short i;
  63.     
  64.     SetPalette( flourine_Window, mypalette, TRUE);
  65.     RGBBackColor(&whiteRGB);
  66.     RGBForeColor(&BlackRGB); /* copybits usually expect black fore and white back */
  67.     OpColor(&grayRGB);
  68.     
  69.     ActivatePalette( flourine_Window );
  70.  
  71. }
  72.  
  73. void init_clut_proton() /* source 2 */
  74. {
  75.     short i;
  76.     
  77.     SetPalette( proton_Window, mypalette, TRUE);
  78.     RGBBackColor(&whiteRGB);
  79.     RGBForeColor(&BlackRGB); /* copybits usually expect black fore and white back */
  80.     OpColor(&grayRGB);
  81.     ActivatePalette( proton_Window );
  82.  
  83. }
  84.  
  85. void myForeColor( r, g, b )
  86.     unsigned short r, b, g;
  87. /* makes it easier to do RGBForeColor */
  88. {
  89.     RGBColor mycolor;
  90.  
  91.     mycolor.red = r;
  92.     mycolor.green = g;
  93.     mycolor.blue = b;
  94.     RGBForeColor( &mycolor );
  95. }
  96.  
  97. void myBackColor( r, g, b )
  98.     unsigned short r, b, g;
  99. /* makes it easier to do RGBBackColor */
  100. {
  101.     RGBColor mycolor;
  102.  
  103.     mycolor.red = r;
  104.     mycolor.green = g;
  105.     mycolor.blue = b;
  106.     RGBBackColor( &mycolor );
  107. }
  108.  
  109. void init_clut_result(  )
  110. {
  111.     short i;
  112.     
  113.     SetPalette( Result_Window, mypalette, TRUE);
  114.     RGBBackColor(&whiteRGB);
  115.     RGBForeColor(&BlackRGB); /* copybits usually expect black fore and white back */
  116.     OpColor(&grayRGB);
  117.     ActivatePalette( Result_Window );
  118.     for ( i = 0; i < all_my_colors; i++ )
  119.     {
  120.         ProtectEntry(i, TRUE);
  121.     }
  122. }
  123.